home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / mildred / lha / landmap.lha / LandMap2.ascii < prev    next >
Text File  |  1999-05-24  |  959b  |  44 lines
  1. WBStartup
  2.  
  3. MBitmap 0,2240,60
  4. InitBank 0,2880*60,$10000 ; must clear!
  5. CludgeBitMap 0,2240,60,8,Bank(0)
  6. InitPalette 0,256
  7. LoadBitMap 0,"Land44.iff",0 ; try 3, 12, 14, 15, 19, 20, 21, 22, 23, 29, 31, 34, 36, 37, 38, 39
  8. MPlanar16ToBitmap 0,Bank(0),2240,60,2240,60
  9. MBitmap 1,2880,60
  10.  
  11. width.q=2240
  12. widthadd.q=(2240-320)/47
  13. For yy=46 To 0 Step -1
  14.   adder.q=2240/width
  15.   MZoom 0,yy,adder,1,320+1120-(width/2),yy,width,1,False,0
  16.   MScroll 321+(1120-(width/2)),yy,320,1,320+(1120+(width/2)),yy
  17.   MScroll 320+(1120+(width/2))-320,yy,320,1,320+(1120-(width/2))-319,yy
  18.   width-widthadd
  19. Next yy
  20. MScroll 0,47,2240,13,320,47,0
  21. MScroll 320,47,320,13,320+2240,47
  22. MScroll 2240,47,320,13,0,47
  23.  
  24. InitPalette 1,256
  25. Dim map.b(256)
  26. For c=0 To 63
  27.   map(c)=c
  28. Next c
  29. For c=64 To 127
  30.   map(c)=64+64+c
  31.   CopyColour 0,1,c,64+64+c
  32. Next c
  33. For c=128 To 255
  34.   map(c)=c
  35. Next c
  36. MReMap &map(0),1
  37.  
  38. Mc2pWindow 0,2880,60
  39. Mc2p Bank(0)
  40. CludgeBitMap 0,2880,60,8,Bank(0)
  41. SaveBitmap 0,"Land17.iff",1
  42. End
  43.  
  44.